home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / haikucont.bas < prev    next >
BASIC Source File  |  1992-05-06  |  6KB  |  191 lines
  1. 1     '       Haiku Ver. 1.2
  2. 2     rem clear 200
  3. 3     '
  4. 10    '      supervisor
  5. 11    screen 1,4
  6. 20    GOSUB 120
  7. 30    GOTO 50
  8. 40    GOSUB 200
  9. 50    GOSUB 260
  10. 60    IF RAN = 1 THEN GOSUB 450
  11. 70    IF RAN = 2 THEN GOSUB 670
  12. 80    IF RAN = 3 THEN GOSUB 890
  13. 90    IF RAN = 4 THEN GOSUB 1110
  14. 100   GOTO 40
  15. 120   '   initialization 
  16. 125   scnclr: print "I'm thinking....."
  17. 130   RANDOMIZE
  18. 140   ARTNMB = 4
  19. 150   ADJNMB = 50
  20. 160   NOUNNMB = 50
  21. 170   VERBNMB = 14
  22. 180   PREPNMB = 6
  23. 190   RETURN
  24. 195   '
  25. 200   '     input
  26. 210   LIN$ = ""
  27. 220   RESTORE
  28. 221   for timer%=1 to 10000: next timer%:scnclr:goto 245
  29. 225   print at(25,22);"<P>rint - <C>ontinue - <S>top"
  30. 230   GETKEY A$
  31. 240   IF A$="P" OR A$="p" THEN GOSUB 1350 
  32. 242   if a$="S" or A$="s" THEN STOP ELSE SCNCLR
  33. 245   PRINT "I'm thinking....."
  34. 250   RETURN
  35. 260   '      determine pattern
  36. 270   RAN = INT(RND*5)
  37. 272   IF RAN<1 THEN 270
  38. 275   PRINT "Form ";RAN
  39. 280   RETURN
  40. 300   '      check articles
  41. 305   FOR I = 1 TO LEN(LIN$) - 2
  42. 310   IF MID$(LIN$,I,3)=" A " THEN B$=MID$(LIN$,I+3,1): IF B$="A" OR B$="E" OR B$="I" OR B$="O" OR B$="U" THEN LIN$=LEFT$(LIN$,I+1)+"N"+MID$(LIN$,I+2)   
  43. 320   NEXT I
  44. 330   FOR I = 1 TO LEN(LIN$)-2
  45. 340   IF MID$(LIN$,I,4)=" AN " THEN B$=MID$(LIN$,I+4,1): IF B$="A" OR B$="E" OR B$="I" OR B$= "O" OR B$="U" THEN 350 ELSE LIN$=LEFT$(LIN$,I+1)+MID$(LIN$,I+3)
  46. 350   NEXT I
  47. 360   RETURN
  48. 380   '       SELECT WORDS
  49. 385   RAN=INT(RND*N+1)+P
  50. 387   IF RAN>124 THEN 385
  51. 390   FOR I=1 TO RAN
  52. 400   READ WRD$
  53. 410   NEXT I
  54. 420   LIN$=LIN$+ " "+ WRD$
  55. 430   RESTORE
  56. 440   RETURN
  57. 450   '      first pattern
  58. 460   N=ARTNMB:P=0:GOSUB 380
  59. 470   N=ADJNMB: P=ARTNMB: GOSUB 380
  60. 480   N=NOUNNMB: P=ARTNMB + ADJNMB: GOSUB 380
  61. 490   GOSUB 300
  62. 500   LIN$= LIN$ + "..."
  63. 510   PRINT AT (23,13); LIN$
  64. 515   LIN1$=LIN$
  65. 520   LIN$=""
  66. 530   N = ARTNMB: P=0: GOSUB 380
  67. 540   N=NOUNNMB: P=ARTNMB+ADJNMB:GOSUB 380
  68. 550   N=VERBNMB:P=ARTNMB+ADJNMB+NOUNNMB: GOSUB 380
  69. 560   N=PREPNMB:P=ARTNMB+ADJNMB+NOUNNMB+VERBNMB: GOSUB 380
  70. 570   N=ARTNMB: P=0: GOSUB 380
  71. 580   N=NOUNNMB: P=ARTNMB+ADJNMB:GOSUB 380
  72. 590   GOSUB 300
  73. 599   REM CHANGED UP TO THIS POINT
  74. 600   PRINT AT (26,14); LIN$
  75. 605   LIN2$=LIN$
  76. 610   LIN$=""
  77. 620   N=ADJNMB:P=ARTNMB: GOSUB 380
  78. 630   GOSUB 380
  79. 640   N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  80. 650   PRINT AT (29,15); LIN$
  81. 655   LIN3$=LIN$
  82. 660   RETURN
  83. 670   '        second pattern
  84. 680   N= NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  85. 690   N=PREPNMB:P=ARTNMB+ADJNMB+NOUNNMB+VERBNMB: GOSUB 380
  86. 700   N=ARTNMB:P=0: GOSUB 380
  87. 710   N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  88. 720   GOSUB 300
  89. 730   LIN$=LIN$+";"
  90. 740   PRINT AT (23,13); LIN$
  91. 745   LIN1$=LIN$
  92. 750   LIN$ = ""
  93. 760   N=ARTNMB:P=0:GOSUB 380
  94. 770   N=ADJNMB:P=ARTNMB: GOSUB 380
  95. 780   N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  96. 790   N=PREPNMB:P=ARTNMB+ADJNMB+NOUNNMB+VERBNMB: GOSUB 380
  97. 800   N=ARTNMB:P=O: GOSUB 380
  98. 810   N=NOUNNMB: P=ARTNMB+ADJNMB: GOSUB 380
  99. 820   GOSUB 300
  100. 830   PRINT AT (26,14); LIN$
  101. 835   LIN2$=LIN$
  102. 840   LIN$=""
  103. 850   N=ADJNMB:P=0:GOSUB 380
  104. 860   N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  105. 870   PRINT AT (29,15); LIN$
  106. 875   LIN3$=LIN$
  107. 880   RETURN
  108. 890   '          third pattern
  109. 900   N=ARTNMB:P=0:GOSUB 380
  110. 910   N=ADJNMB:P=ARTNMB: GOSUB 380
  111. 920   GOSUB 380
  112. 930   N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  113. 940   GOSUB 300
  114. 950   LIN$=LIN$+";"
  115. 960   PRINT AT (23,13); LIN$
  116. 965   LIN1$=LIN$
  117. 970   LIN$=""
  118. 980   N=PREPNMB:P=ARTNMB+ADJNMB+NOUNNMB+VERBNMB: GOSUB 380
  119. 990   N=ARTNMB:P=0: GOSUB 380
  120. 1000  N=ADJNMB:P=ARTNMB: GOSUB 380
  121. 1010  N=NOUNNMB: P=ARTNMB+ADJNMB: GOSUB 380
  122. 1020  GOSUB 300
  123. 1030  PRINT AT (26,14); LIN$
  124. 1035  LIN2$=LIN$
  125. 1040  LIN$=""
  126. 1050  N= ARTNMB:P=0: GOSUB 380
  127. 1060  N= NOUNNMB:P=ARTNMB+ADJNMB:GOSUB 380
  128. 1070  N=VERBNMB:P=ARTNMB+ADJNMB+NOUNNMB: GOSUB 380
  129. 1080  GOSUB 300
  130. 1090  PRINT AT (29,15); LIN$
  131. 1095  LIN3$=LIN$
  132. 1100  RETURN
  133. 1110  '        fourth pattern
  134. 1120  N=ARTNMB:P=O: GOSUB 380
  135. 1130  N=ADJNMB:P=ARTNMB: GOSUB 380
  136. 1140  N=NOUNNMB:P=ARTNMB+ADJNMB: GOSUB 380
  137. 1150  N=VERBNMB:P=ARTNMB+ADJNMB+NOUNNMB: GOSUB 380
  138. 1160  GOSUB 300
  139. 1170  LIN$=LIN$+";"
  140. 1180  PRINT AT (23,13); LIN$
  141. 1185  LIN1$=LIN$
  142. 1190  LIN$=""
  143. 1200  N=ARTNMB:P=O: GOSUB 380
  144. 1210  N= ADJNMB:P=ARTNMB: GOSUB 380
  145. 1220  GOSUB 380
  146. 1230  N=NOUNNMB: P=ARTNMB+ADJNMB: GOSUB 380
  147. 1240  GOSUB 300
  148. 1250  PRINT AT (26,14); LIN$
  149. 1255  LIN2$=LIN$
  150. 1260  LIN$=""
  151. 1270  N=PREPNMB:P=ARTNMB+ADJNMB+NOUNNMB+VERBNMB:GOSUB 380
  152. 1280  N=ARTNMB:P=0: GOSUB 380
  153. 1290  N=ADJNMB: P=ARTNMB: GOSUB 380
  154. 1300  N=NOUNNMB: P=ARTNMB+ADJNMB: GOSUB 380
  155. 1310  GOSUB 300
  156. 1320  PRINT AT (29,15); LIN$
  157. 1325  LIN3$=LIN$
  158. 1330  RETURN
  159. 1350  REM LPRINT STATEMENTS
  160. 2000  '          vocabulary
  161. 2010  '              articles
  162. 2020  DATA A,THE,AN,THE
  163. 2030  '              adjectives
  164. 2040  DATA HIDDEN,BITTER,MISTY,SILENT,EMPTY
  165. 2050  DATA DRY,DARK,ICY,DELICATE,QUIET
  166. 2060  DATA WHITE,COOL,DAPPLED
  167. 2070  DATA TWILIGHT,DAWN,CRIMSON,WISPY,AZURE
  168. 2080  DATA BLUE,BILLOWING,BROKEN,COLD,DAMP,FALLING
  169. 2090  DATA FROSTY,GREEN,LONG,LATE,LINGERING,LIMPID
  170. 2100  DATA LITTLE,MORNING,MUDDY,OLD,RED,ROUGH
  171. 2110  DATA STILL,SMALL,SPARKLING,GLOWING,VERMILLION
  172. 2120  DATA WANDERING,WITHERED,WILD,BLACK,YOUNG
  173. 2125  DATA AUTUMN,WINTER,SPRING,SUMMER
  174. 2130  '               nouns
  175. 2140  DATA WATERFALL,RIVER,BREEZE,MOON
  176. 2150  DATA RAIN,WIND,SEA,MORNING,SNOW,LAKE,SUNSET
  177. 2160  DATA PINE,SHADOW,LEAF,DAWN,GLITTER,FOREST
  178. 2170  DATA HILL,CLOUD,MEADOW,SUN,GLADE,BIRD,BROOK
  179. 2180  DATA BUTTERFLY,BUSH,DEW,MIST,FIELD,EVERGREEN
  180. 2190  DATA FLOWER,FIREFLY,FEATHER,GRASS,HAZE,MOUNTAIN
  181. 2200  DATA NIGHT,POND,SHADE,SNOWFLAKE
  182. 2210  DATA SILENCE,SOUND,SKY,SHAPE,SURF,THUNDER
  183. 2220  DATA VIOLET,WATER,WILDFLOWER,WAVE
  184. 2230  '                verbs
  185. 2240  DATA MOVES,DRIFTS,HAS STOPPED,STRUGGLES
  186. 2250  DATA HAS FALLEN,HAS PASSED,SLEEPS,CRIES
  187. 2260  DATA FLUTTERS, HAS RISEN, IS FALLING, IS TRICKLING
  188. 2270  DATA MURMURS,IS FLOATING
  189. 2280  '                prepositions
  190. 2290  DATA ON,IN,OF,UNDER,OVER,NEAR,end
  191.